(:*******************************************************:)
(: Test: K-SeqSubsequenceFunc-33                         :)
(: Written by: Frans Englich                             :)
(: Date: 2007-11-22T11:31:23+01:00                       :)
(: Purpose: A test whose essence is: `deep-equal(1, subsequence((1, 2, current-time()), 1, 1))`. :)
(:*******************************************************:)
deep-equal(1, subsequence((1, 2, current-time()), 1, 1))